﻿Public Class remax
    Inherits base

    Public Sub New(ByVal strFolder As String, ByVal strRawFilename As String, ByVal doDelta As Boolean)
        isDelta = doDelta
        strXMLFolder = strFolder
        strXMLFileName = strRawFilename
    End Sub

    Public Overrides Sub StartProcess(ByVal inc As Integer, ByVal test As Integer, ByVal restart As Boolean)
        solrID = "listingid"
        solrSelect1 = "select?q={!cache=false}listingid:[@MIN@+TO+@MAX@]"
        solrSelect2 = "+AND+active:1+AND+searchable:1+AND+homevalueid:[1+TO+*]"
        If isDelta Then
            solrSelect2 += "+AND+modifiedon:[NOW-2DAYS+TO+NOW]"
        End If
        solrFields = "&fl=address,state,city,zip,homevalueid,modifiedon"
        solrUrl = "http://10.93.105.181:8080/solr/remaxlistings/"
        intTest = test

        NodeAddress = 0
        NodeCity = 1
        NodeState = 3
        NodeZip = 4
        NodeHMID = 5
        NodeMod = 2

        doXMlProcess(inc, restart)
    End Sub
End Class
